home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / misc / emu / iecutil.lha / inc / lib / graphics.lib next >
Encoding:
Text File  |  1995-12-26  |  4.7 KB  |  110 lines
  1. {$if not def GRAPHICS_RASTPORT_H;incl"graphics/rastport.h";endif}
  2. {$if not def GRAPHICS_VIEW_H;incl"graphics/view.h";endif}
  3. {$if not def GRAPHICS_LIB}
  4. Const GRAPHICS_LIB='G';
  5. Var GfxBase: ptr;
  6. Procedure OpenGfx;
  7.  Begin OpenLib(GfxBase,'graphics.library',0) End;
  8. Library GfxBase:
  9. -30: Function BltBitMap(a0:Ptr; d0,d1:Long; a1:Ptr; d2,d3,d4,d5,d6,d7:Long; a2:Ptr):Long;
  10. -36: Procedure BltTemplate(a0:Ptr; d0,d1:Long; a1:Ptr; d2,d3,d4,d5:Long);
  11. -42: Procedure ClearEOL(a1:p_RastPort);
  12. -48: Procedure ClearScreen(a1:p_RastPort);
  13. -54: Function TextLength(a1:p_RastPort; a0:stryng; d0:Long):Integer;
  14. {
  15. -60: Function GrafxText(a1:p_RastPort; a0:stryng; d0:Long):Boolean;
  16. }
  17. -60: Procedure GrafxText(a1:p_RastPort; a0:stryng; d0:Long);
  18. -66: Function SetFont(a1:p_RastPort; a0:Ptr):Boolean;
  19. -72: Function OpenFont(a0:Ptr):Ptr;
  20. -78: Procedure CloseFont(a1:Ptr);
  21. -84: Function AskFontStyle(a1:p_RastPort):Word;
  22. -90: Procedure SetSoftStyle(a1:p_RastPort; d0,d1:Word);
  23. -96: Procedure AddBob(a0:Ptr; a1:p_RastPort);
  24. -102:Procedure AddVSprite(a0:Ptr; a1:p_RastPort);
  25. -108:Procedure DoCollision(a1:p_RastPort);
  26. -114:Procedure DrawGList(a1:p_rastPort; a0:p_ViewPort);
  27. -120:Procedure InitGels(a0,a1,a2:Ptr);
  28. -126:Procedure InitMasks(a0:Ptr);
  29. -132:Procedure RemIBob(a0:Ptr; a1:p_RastPort; a2:p_ViewPort);
  30. -138:Procedure RemVSprite(a0:Ptr);
  31. -144:Procedure SetCollision(d0:Long; a0,a1:Ptr);
  32. -150:Procedure SortGList(a1:p_RastPort);
  33. -156:Procedure AddAnimObj(a0,a1:Ptr; a2:p_RastPort);
  34. -162:Procedure Animate(a0:Ptr; a1:p_RastPort);
  35. -168:Function GetGBuffers(a0:Ptr; a1:p_RastPort; d0:Long):integer;
  36. -174:Procedure InitGMasks(a0:Ptr);
  37. { GelsFuncE, GelsFuncF }
  38. -192:Procedure LoadRGB4(a0:p_ViewPort; a1:ptr; d0:Long);
  39. -198:Procedure InitRastPort(a1:p_RastPort);
  40. -204:Procedure InitVPort(a0:p_ViewPort);
  41. -210:Procedure MrgCop(a1:p_View);
  42. -216:Procedure MakeVPort(a0:p_View; a1:p_ViewPort);
  43. -222:Procedure LoadView(a1:p_View);
  44. -228:Procedure WaitBlit;
  45. -234:Procedure SetRast(a1:p_RastPort; d0:Long);
  46. -240:Procedure Move(a1:p_RastPort; d0,d1:Integer);
  47. -246:Procedure Draw(a1:p_RastPort; d0,d1:Integer);
  48. -252:Procedure AreaMove(a1:p_RastPort; d0,d1:Integer);
  49. -258:Procedure AreaDraw(a1:p_RastPort; d0,d1:Integer);
  50. -264:Procedure AreaEnd(a1:p_RastPort);
  51. -270:Procedure WaitTOF;
  52. -276:Procedure QBlit(a1:Ptr);
  53. -282:Procedure InitArea(a0:p_AreaInfo; a1:ptr; d0:Long);
  54. -288:Procedure SetRGB4(a0:p_ViewPort; d0,d1,d2,d3:Long);
  55. -294:Procedure QBSBlit(a1:Ptr);
  56. -300:Procedure BltClear(a1:Ptr; d0,d1:Long);
  57. -306:Procedure RectFill(a1:p_RastPort; d0,d1,d2,d3:Integer);
  58. -312:Procedure BltPattern(a1:p_RastPort; a0:Ptr; d0,d1,d2,d3,d4:Long);
  59. -318:Function ReadPixel(a1:p_RastPort; d0,d1:Integer):Integer;
  60. -324:Procedure WritePixel(a1:p_RastPort; d0,d1:Integer);
  61. -330:Procedure Flood(a1:p_RastPort; d2:Long; d0,d1:Integer);
  62. -336:Procedure PolyDraw(a1:p_rastPort; d0:Long; a0:ptr);
  63. -342:Procedure SetAPen(a1:p_RastPort; d0:Long);
  64. -348:Procedure SetBPen(a1:p_RastPort; d0:Long);
  65. -354:Procedure SetDrMd(a1:p_RastPort; d0:Long);
  66. -360:Procedure InitView(a1:p_View);
  67. -366:Procedure CBump(a1:Ptr);
  68. -372:Procedure CMove(a1:Ptr; d0,d1:Long);
  69. -378:Procedure CWait(a1:Ptr; d0,d1:Long);
  70. -384:Function VBeamPos:integer;
  71. -390:Procedure InitBitmap(a1:ptr; d0,d1,d2:Long);
  72. -396:Procedure ScrollRaster(a1:p_RastPort; d0,d1,d2,d3,d4,d5:Integer);
  73. -402:Procedure WaitBOVP(a0:p_ViewPort);
  74. -408:Function GetSprite(a0:Ptr; d0:Long):integer;
  75. -414:Procedure FreeSprite(d0:Long);
  76. -420:Procedure ChangeSprite(a0:p_ViewPort; a1,a2:Ptr);
  77. -426:Procedure MoveSprite(a0:p_ViewPort; a1:Ptr; d0,d1:integer);
  78. { LockLayerRom,UnLockLayerRom not possible }
  79. -444:Procedure SyncSBitMap(a0:Ptr);
  80. -450:Procedure CopySBitMap(a0,a1:Ptr);
  81. -456:Procedure OwnBlitter;
  82. -462:Procedure DisownBlitter;
  83. -468:Procedure InitTmpRas(a0:p_TmpRas; a1:Ptr; d0:Long);
  84. -474:Procedure AskFont(a1:p_RastPort; a0:Ptr);
  85. -480:Procedure AddFont(a1:Ptr);
  86. -486:Procedure RemFont(a1:Ptr);
  87. -492:Function AllocRaster(d0,d1:Long):Ptr;
  88. -498:Procedure FreeRaster(a0:Ptr; d0,d1:Long);
  89. -504:Procedure AndRectRegion(a0,a1:Ptr);
  90. -510:Procedure OrRectRegion(a0,a1:Ptr);
  91. -516:Function NewRegion:Ptr;
  92. {-522:reserved}
  93. -528:Procedure ClearRegion(a0:Ptr);
  94. -534:Procedure DisposeRegion(a0:Ptr);
  95. -540:Procedure FreeVPortCopList(a0:p_ViewPort);
  96. -546:Procedure FreeCopList(a0:Ptr);
  97. -552:Procedure ClipBlit(a0:Ptr; d0,d1:Long; a1:Ptr; d2,d3,d4,d5,d6:Long);
  98. -558:Procedure XorRectRegion(a0,a1:Ptr);
  99. -564:Procedure FreeCprList(a0:Ptr);
  100. -570:Function GetColorMap(d0:Long):Ptr;
  101. -576:Procedure FreeColorMap(a0:Ptr);
  102. -582:Function GetRGB4(a0:Ptr; d0:integer):integer;
  103. -588:Procedure ScrollVPort(a0:p_ViewPort);
  104. -594:Procedure UCopperListInit(a0:Ptr; d0:Long);
  105. -600:Procedure FreeGBuffers(a0:Ptr; a1:p_RastPort; d0:Long);
  106. -606:Procedure BltBitMapRastPort(a0:Ptr; d0,d1:Long; a1:Ptr; d2,d3,d4,d5,d6:Long);
  107. End;
  108. {$endif}
  109.  
  110.